home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crwdemo / section.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-05  |  11.6 KB  |  376 lines
  1. VERSION 2.00
  2. Begin Form Section 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Section Formats"
  5.    ClientHeight    =   6240
  6.    ClientLeft      =   1455
  7.    ClientTop       =   1710
  8.    ClientWidth     =   6765
  9.    Height          =   6930
  10.    Left            =   1395
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   6240
  13.    ScaleWidth      =   6765
  14.    Top             =   1080
  15.    Width           =   6885
  16.    Begin CommandButton Command3 
  17.       Caption         =   "Help"
  18.       Height          =   420
  19.       Left            =   4230
  20.       TabIndex        =   17
  21.       Top             =   5130
  22.       Width           =   1275
  23.    End
  24.    Begin CommandButton Command2 
  25.       Caption         =   "Done"
  26.       Height          =   420
  27.       Left            =   2700
  28.       TabIndex        =   16
  29.       Top             =   5130
  30.       Width           =   1275
  31.    End
  32.    Begin CommandButton Command1 
  33.       Caption         =   "Set Formats"
  34.       Height          =   420
  35.       Left            =   1170
  36.       TabIndex        =   15
  37.       Top             =   5130
  38.       Width           =   1275
  39.    End
  40.    Begin SSCheck Check3D7 
  41.       Caption         =   "Print at Bottom of Page"
  42.       Height          =   285
  43.       Left            =   3960
  44.       TabIndex        =   14
  45.       Top             =   3735
  46.       Width           =   2355
  47.    End
  48.    Begin SSCheck Check3D6 
  49.       Caption         =   "Reset Page # After"
  50.       Height          =   330
  51.       Left            =   3960
  52.       TabIndex        =   13
  53.       Top             =   3285
  54.       Width           =   2265
  55.    End
  56.    Begin SSCheck Check3D5 
  57.       Caption         =   "Suppress Blank Lines"
  58.       Height          =   240
  59.       Left            =   3960
  60.       TabIndex        =   12
  61.       Top             =   2970
  62.       Width           =   2265
  63.    End
  64.    Begin SSCheck Check3D4 
  65.       Caption         =   "Keep Sections Together"
  66.       Height          =   285
  67.       Left            =   3960
  68.       TabIndex        =   11
  69.       Top             =   2565
  70.       Width           =   2355
  71.    End
  72.    Begin SSCheck Check3D3 
  73.       Caption         =   "New Page After"
  74.       Height          =   285
  75.       Left            =   3960
  76.       TabIndex        =   10
  77.       Top             =   2160
  78.       Width           =   1725
  79.    End
  80.    Begin SSCheck Check3D2 
  81.       Caption         =   "New Page Before"
  82.       Height          =   330
  83.       Left            =   3960
  84.       TabIndex        =   9
  85.       Top             =   1710
  86.       Width           =   1725
  87.    End
  88.    Begin SSCheck Check3D1 
  89.       Caption         =   "Show Section"
  90.       Height          =   330
  91.       Left            =   3960
  92.       TabIndex        =   8
  93.       Top             =   1305
  94.       Value           =   -1  'True
  95.       Width           =   1725
  96.    End
  97.    Begin SSPanel Panel3D3 
  98.       Alignment       =   1  'Left Justify - MIDDLE
  99.       BevelInner      =   1  'Inset
  100.       BevelWidth      =   2
  101.       BorderWidth     =   1
  102.       Height          =   4695
  103.       Left            =   3510
  104.       TabIndex        =   5
  105.       Top             =   180
  106.       Width           =   3165
  107.       Begin SSFrame Frame3D4 
  108.          ForeColor       =   &H00000000&
  109.          Height          =   3120
  110.          Left            =   270
  111.          TabIndex        =   7
  112.          Top             =   855
  113.          Width           =   2625
  114.       End
  115.       Begin SSFrame Frame3D3 
  116.          ForeColor       =   &H00000000&
  117.          Height          =   510
  118.          Left            =   270
  119.          TabIndex        =   6
  120.          Top             =   135
  121.          Width           =   2625
  122.          Begin Label Label1 
  123.             Alignment       =   2  'Center
  124.             BackColor       =   &H00C0C0C0&
  125.             Caption         =   "Format Options"
  126.             Height          =   240
  127.             Left            =   540
  128.             TabIndex        =   18
  129.             Top             =   180
  130.             Width           =   1545
  131.          End
  132.       End
  133.    End
  134.    Begin SSFrame Frame3D1 
  135.       ForeColor       =   &H00000000&
  136.       Height          =   555
  137.       Left            =   360
  138.       TabIndex        =   2
  139.       Top             =   315
  140.       Width           =   2715
  141.       Begin TextBox Text1 
  142.          Alignment       =   2  'Center
  143.          BackColor       =   &H00C0C0C0&
  144.          BorderStyle     =   0  'None
  145.          ForeColor       =   &H00000000&
  146.          Height          =   285
  147.          Left            =   180
  148.          TabIndex        =   4
  149.          Text            =   "Choose Section To Modify"
  150.          Top             =   180
  151.          Width           =   2355
  152.       End
  153.    End
  154.    Begin SSPanel Panel3D2 
  155.       Alignment       =   1  'Left Justify - MIDDLE
  156.       BevelInner      =   1  'Inset
  157.       BevelWidth      =   2
  158.       BorderWidth     =   1
  159.       Height          =   4695
  160.       Left            =   90
  161.       TabIndex        =   1
  162.       Top             =   180
  163.       Width           =   3255
  164.       Begin SSFrame Frame3D2 
  165.          ForeColor       =   &H00000000&
  166.          Height          =   3165
  167.          Left            =   270
  168.          TabIndex        =   3
  169.          Top             =   855
  170.          Width           =   2715
  171.          Begin SSOption Option3D1 
  172.             Caption         =   "Grand Total"
  173.             Height          =   285
  174.             Index           =   6
  175.             Left            =   180
  176.             TabIndex        =   25
  177.             TabStop         =   0   'False
  178.             Top             =   2655
  179.             Width           =   1275
  180.          End
  181.          Begin SSOption Option3D1 
  182.             Caption         =   "Page Footer"
  183.             Height          =   240
  184.             Index           =   5
  185.             Left            =   180
  186.             TabIndex        =   24
  187.             TabStop         =   0   'False
  188.             Top             =   2250
  189.             Width           =   1455
  190.          End
  191.          Begin SSOption Option3D1 
  192.             Caption         =   "Group Footer"
  193.             Height          =   285
  194.             Index           =   4
  195.             Left            =   180
  196.             TabIndex        =   23
  197.             TabStop         =   0   'False
  198.             Top             =   1845
  199.             Width           =   1455
  200.          End
  201.          Begin SSOption Option3D1 
  202.             Caption         =   "Details"
  203.             Height          =   285
  204.             Index           =   3
  205.             Left            =   180
  206.             TabIndex        =   22
  207.             TabStop         =   0   'False
  208.             Top             =   1440
  209.             Width           =   1635
  210.          End
  211.          Begin SSOption Option3D1 
  212.             Caption         =   "Group Header"
  213.             Height          =   240
  214.             Index           =   2
  215.             Left            =   180
  216.             TabIndex        =   21
  217.             TabStop         =   0   'False
  218.             Top             =   1080
  219.             Width           =   1635
  220.          End
  221.          Begin SSOption Option3D1 
  222.             Caption         =   "Page Header"
  223.             Height          =   240
  224.             Index           =   1
  225.             Left            =   180
  226.             TabIndex        =   20
  227.             TabStop         =   0   'False
  228.             Top             =   675
  229.             Width           =   1455
  230.          End
  231.          Begin SSOption Option3D1 
  232.             Caption         =   "All Sections"
  233.             Height          =   285
  234.             Index           =   0
  235.             Left            =   180
  236.             TabIndex        =   19
  237.             Top             =   270
  238.             Value           =   -1  'True
  239.             Width           =   1725
  240.          End
  241.       End
  242.    End
  243.    Begin SSPanel Statusbar 
  244.       Alignment       =   1  'Left Justify - MIDDLE
  245.       Height          =   375
  246.       Left            =   0
  247.       TabIndex        =   0
  248.       Top             =   5850
  249.       Width           =   7395
  250.    End
  251.    Begin Menu SectionMenuFile 
  252.       Caption         =   "&File"
  253.       Begin Menu SectionFileExit 
  254.          Caption         =   "&Exit"
  255.       End
  256.    End
  257. Sub Command1_Click ()
  258.   'Set the formatting options depending for various sections
  259.      
  260.     If jobnum = 0 Then
  261.         MsgBox "No job open."
  262.         Exit Sub
  263.     End If
  264.     Dim SectionOptions As PESectionOptions
  265.     SectionOptions.StructSize = Len(SectionOptions)
  266.     SectionOptions.Visible = -(Check3D1.Value)
  267.     SectionOptions.newPageBefore = -(Check3D2.Value)
  268.     SectionOptions.newPageAfter = -(Check3D3.Value)
  269.     SectionOptions.keepTogether = -(Check3D4.Value)
  270.     SectionOptions.suppressBlankLines = -(Check3D5.Value)
  271.     SectionOptions.resetPageNAfter = -(Check3D6.Value)
  272.     SectionOptions.printAtBottomOfPage = -(Check3D7.Value)
  273.    If PESetSectionFormat(jobnum, SectionCode, SectionOptions) = False Then
  274.       RCode = GetErrorString(jobnum)
  275.       MsgBox "PESetSectionFormat Error #: " + Str(ErrorCode) + " - " + RCode
  276.    Else
  277.         Section!Statusbar.Caption = "Section Format has been set!"
  278.    End If
  279.    Exit Sub
  280. End Sub
  281. Sub Command2_Click ()
  282.  Unload Me
  283. End Sub
  284. Sub Command3_Click ()
  285.  RCode = Shell("Winhelp c:\crw\crw.hlp", 3)
  286.  If RCode = False Then
  287.    MsgBox ("RedPoint cannot find the Crystal Help file in C:\CRW directory")
  288.  End If
  289. End Sub
  290. Sub Form_Load ()
  291.       Check3D1.Enabled = True
  292.       Check3D2.Enabled = False
  293.       Check3D3.Enabled = False
  294.       Check3D4.Enabled = False
  295.       Check3D5.Enabled = True
  296.       Check3D6.Enabled = False
  297.       Check3D7.Enabled = False
  298. End Sub
  299. Sub MenuFileExit_Click ()
  300.  Unload Me
  301. End Sub
  302. Sub Option3D1_Click (Index As Integer, Value As Integer)
  303.    Select Case Index
  304.     Case 0:
  305.       SectionCode = 0    'PE_AllSections
  306.       
  307.       Check3D1.Enabled = True
  308.       Check3D2.Enabled = False
  309.       Check3D3.Enabled = False
  310.       Check3D4.Enabled = False
  311.       Check3D5.Enabled = True
  312.       Check3D6.Enabled = False
  313.       Check3D7.Enabled = False
  314.     Case 1:
  315.       SectionCode = 2000 'PE_HeaderSection
  316.       Check3D1.Enabled = True
  317.       Check3D2.Enabled = False
  318.       Check3D3.Enabled = False
  319.       Check3D4.Enabled = True
  320.       Check3D5.Enabled = True
  321.       Check3D6.Enabled = True
  322.       Check3D7.Enabled = True
  323.       
  324.     Case 2:
  325.       SectionCode = 3000 'PE_GroupHeader
  326.       Check3D1.Enabled = True
  327.       Check3D2.Enabled = True
  328.       Check3D3.Enabled = True
  329.       Check3D4.Enabled = True
  330.       Check3D5.Enabled = True
  331.       Check3D6.Enabled = True
  332.       Check3D7.Enabled = True
  333.       
  334.     Case 3:
  335.       SectionCode = 4000 'PE_DetailSection
  336.       Check3D1.Enabled = True
  337.       Check3D2.Enabled = True
  338.       Check3D3.Enabled = True
  339.       Check3D4.Enabled = True
  340.       Check3D5.Enabled = True
  341.       Check3D6.Enabled = True
  342.       Check3D7.Enabled = True
  343.       
  344.     Case 4:
  345.       SectionCode = 5000 'PE_GroupFooter
  346.       Check3D1.Enabled = True
  347.       Check3D2.Enabled = True
  348.       Check3D3.Enabled = True
  349.       Check3D4.Enabled = True
  350.       Check3D5.Enabled = True
  351.       Check3D6.Enabled = True
  352.       Check3D7.Enabled = True
  353.     Case 5:
  354.       SectionCode = 7000 'PE_FooterSection
  355.       Check3D1.Enabled = True
  356.       Check3D2.Enabled = False
  357.       Check3D3.Enabled = False
  358.       Check3D4.Enabled = True
  359.       Check3D5.Enabled = True
  360.       Check3D6.Enabled = True
  361.       Check3D7.Enabled = True
  362.     Case 6:
  363.       SectionCode = 6000 'PE_GrandTotalSection
  364.       Check3D1.Enabled = True
  365.       Check3D2.Enabled = True
  366.       Check3D3.Enabled = True
  367.       Check3D4.Enabled = True
  368.       Check3D5.Enabled = True
  369.       Check3D6.Enabled = True
  370.       Check3D7.Enabled = True
  371.    End Select
  372. End Sub
  373. Sub SectionFileExit_Click ()
  374.  Unload Me
  375. End Sub
  376.